home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Majuscules.amiCAD < prev    next >
Text File  |  1998-05-23  |  1KB  |  62 lines
  1. /* Script ARexx permettant la conversion d'un objet texte en MAJUSCULES */
  2. /* Chez Corbin, Vendredi 7 Octobre 1997, Version 1.00, © R.Florac */
  3. /*        Dimanche 7 Décembre 1997, version 1.01: extension à tous les objets sélectionnés */
  4. /* $VER: Majuscules.AmiCAD 1.02 (© R.Florac, 13/04/98) */
  5.  
  6. options results
  7.  
  8. signal on error
  9. signal on syntax
  10.  
  11. 'OBJET=FIRSTSEL'; objet = result
  12. if objet = 0 then do
  13.     'MESSAGE("Il n''y a aucun objet"+CHR(10)+"qui soit sélectionné")'
  14.     exit
  15. end
  16.  
  17. 'SAVEALL(-1)'
  18. do while objet > 0            /* version 1.01 */
  19.     'TYPE(OBJET)'; type = result
  20.     'READTEXT(OBJET)'; texte = result
  21.  
  22.     i = 1
  23.     l = length(texte)
  24.     do while i <= l
  25.  
  26.     curletter = substr(texte, i, 1)
  27.     if curletter = ' ' then
  28.     do
  29.            i = i + 1
  30.            iterate
  31.     end
  32.  
  33.     texte = overlay(upper(curletter), texte, i)
  34.  
  35.     i = i + 1
  36.     end
  37.  
  38.     select
  39.     when type = 4 then 'SETTEXT(OBJET,"'texte'")'
  40.     when type = 5 then 'SETTEXT(OBJET,"'texte'")'
  41.     when type = 6 then 'SETTEXT(OBJET,"'texte'")'
  42.     when type = 11 then 'SETTEXT(OBJET,"'texte'")'
  43.     when type = 12 then 'SETTEXT(OBJET,"'texte'")'
  44.     otherwise nop
  45.     end
  46.  
  47.     'OBJET=NEXTSEL(OBJET)'; objet = result
  48.     if objet=0 then exit
  49. end
  50.  
  51. exit
  52.  
  53. /* Traitement des erreurs, interruption du programme */
  54. syntax:
  55. erreur=RC
  56. 'MESSAGE("Script Majuscules.AmiCAD:"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  57. exit
  58.  
  59. error:
  60. 'MESSAGE("Script Majuscules.AmiCAD:"+CHR(10)+"Erreur en ligne 'SIGL'")'
  61. exit
  62.